########################################################################
# 
# Setup_B.pm
# ==========
#
# Author: Steven Liang <stliang@gmail.com>
#
# Purpose:
#   Class start with the key word Setup_ represents a testbed.
#   This Setup_B class can be instantiated after which would
#   allow users to access devices built into Setup_B.
#   A Setup object can contain any number of Node object for
#   example: Setup_B contains a CiscoRouter object which is
#   call C2600.
#
# Topology:
#
#                +-------+
#                | Linux |
#                | V9.0  |
#                +-------+
#                    | .1      172.16.15.x
#              +-----+---------------------+
#                              |.4
#			   +-------+
#			   | Cisco |
#			   | 2600  |
#			   +-------+
#
# User(s) of this setup:
#
#     test_Setup_B_Obj.pl
#
#
########################################################################

  package Setup_B;
  $VERSION = 1.01;

  use Node;
  use CiscoRouter;
 
  # Linux's variables:
  $ip = "127.0.0.1";
  $userName = "vxuser";
  $passWord = "vxuser";
  $port = 23;
 
  # C2600's variables:
  $ip = "172.16.15.4";
  $userName = "";
  $passWord = "password";
  $enablePassWord = "password";
  $port = 23;

  sub new () {
	my $class = shift;
        my $self = { };
        bless $self;
  	$self->{C2600} = CiscoRouter->new($ip, $userName, $passWord, $enablePassWord, $port);
  	$self->{localhost} = Linux->new($ip, $userName, $passWord, $port);
	return $self;
  }
